home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK1.toast / Development Kits (Disc 1) / Communications Toolbox / CommToolbox 1.1 / Interfaces / PInterfaces / TerminalTools.p < prev   
Encoding:
Text File  |  1994-11-21  |  2.2 KB  |  119 lines  |  [TEXT/MPS ]
  1. {************************************************************
  2.     TerminalTools.p
  3.     Pascal Interface to the Macintosh Libraries
  4.  
  5.         Copyright Apple Computer, Inc. 1988-1991
  6.         All rights reserved
  7. ************************************************************}
  8.  
  9.  
  10. {$IFC UNDEFINED UsingIncludes}
  11. {$SETC UsingIncludes := 0}
  12. {$ENDC}
  13.  
  14. {$IFC NOT UsingIncludes}
  15.     UNIT TerminalTools;
  16.     INTERFACE
  17. {$ENDC}
  18.  
  19. {$IFC UNDEFINED UsingTerminalTools}
  20. {$SETC UsingTerminalTools := 1}
  21.  
  22. {$I+}
  23. {$SETC TerminalToolsIncludes := UsingIncludes}
  24. {$SETC UsingIncludes := 1}
  25. {$IFC UNDEFINED UsingDialogs}
  26. {$I $$Shell(PInterfaces)Dialogs.p}
  27. {$ENDC}
  28. {$IFC UNDEFINED UsingTerminals}
  29. {$I $$Shell(PInterfaces)Terminals.p}
  30. {$ENDC}
  31. {$SETC UsingIncludes := TerminalToolsIncludes}
  32.  
  33. CONST
  34. tdefType            =    'tdef';
  35. tvalType            =    'tval';
  36. tsetType            =    'tset';
  37. tlocType            =    'tloc';
  38. tscrType            =    'tscr';
  39. tbndType            =    'tbnd';    
  40. tverType            =    'vers';
  41.  
  42. { messages }
  43. tmInitMsg             =     0;
  44. tmDisposeMsg         =     1;
  45. tmSuspendMsg        =     2;
  46. tmResumeMsg            =     3;
  47. tmMenuMsg            =    4;
  48. tmEventMsg            =    5;
  49. tmActivateMsg        =     6;
  50. tmDeactivateMsg        =     7;
  51. tmGetErrorStringMsg    =    8;
  52.  
  53. tmIdleMsg            =    50;
  54. tmResetMsg            =    51;
  55.  
  56. tmKeyMsg            =     100;
  57. tmStreamMsg            =     101;
  58. tmResizeMsg            =     102;
  59. tmUpdateMsg            =    103;
  60. tmClickMsg            =    104;
  61. tmGetSelectionMsg    =    105;
  62. tmSetSelectionMsg    =    106;
  63. tmScrollMsg            =    107;
  64. tmClearMsg            =    108;
  65. tmGetLineMsg        =    109;
  66. tmPaintMsg            =    110;
  67. tmCursorMsg            =    111;
  68. tmGetEnvironsMsg    =    112;
  69. tmDoTermKeyMsg        =    113;
  70. tmCountTermKeysMsg    =    114;
  71. tmGetIndTermKeyMsg    =    115;
  72.  
  73. {    messages for validate DefProc                }
  74. tmValidateMsg        =    0;
  75. tmDefaultMsg        =    1;
  76.  
  77. {    messages for Setup DefProc                }
  78. tmSpreflightMsg        =    0;
  79. tmSsetupMsg            =    1;
  80. tmSitemMsg            =    2;
  81. tmSfilterMsg        =    3;
  82. tmScleanupMsg        =    4;
  83.  
  84. {    messages for scripting defProc             }
  85. tmMgetMsg            =    0;
  86. tmMsetMsg            =    1;
  87.  
  88. {    messages for localization defProc        }
  89. tmL2English            =    0;
  90. tmL2Intl            =    1;
  91.  
  92. TYPE
  93. TMSearchBlockPtr    =    ^TMSearchBlock;
  94. TMSearchBlock        =    RECORD
  95.     theString:    StringHandle;
  96.     where:    Rect;
  97.     searchType:    TMSearchTypes;
  98.     callBack:    ProcPtr;
  99.     refnum:    INTEGER;
  100.     next:    TMSearchBlockPtr;
  101.  END;
  102.  
  103. TMSetupPtr        =    ^TMSetupStruct;
  104. TMSetupStruct    =    RECORD
  105.     theDialog:    DialogPtr;
  106.     count:    INTEGER;
  107.     theConfig:    Ptr;
  108.     procID:    INTEGER;        { procID of the tool    }
  109.  END;
  110.  
  111.  
  112.  
  113. {$ENDC} { UsingTerminalTools }
  114.  
  115. {$IFC NOT UsingIncludes}
  116.  END.
  117. {$ENDC}
  118.  
  119.